a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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FFFFFFFFFE 000000 RRRRRRRR UU UU DDDDDDDD 
FFFFFFFFFF 000000 RRRRRRRR UU UU DDDDDDDD 
FF 00 00 RR RR UU UU 0D DD 
FF 00 OO RR RR UU UU DD DD 
FF 00 00 RR RR UU UU DD DD 
FF 00 OO RR RR UU UU DD DD 
FFFFFFFF 00 00 RRRRRRRR UU UU DD DD 
FFFFFFFF 00 O00 RRRRRRRR UU UU DD DD 
FF 00 00 RR RR UU UU DD DD 
FF 00 OO RR RR UU UU DD DD 
FF 00 OO RR RR UU UU DD DD 
FF 00 00 RR RR UU UU DD D 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD 
LL IIIII1 SSSSSSSS 

LL I1111 SSSSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL II SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 


ie De ee ee ee Be ee Re ee Oe ee ee ee | 
Sn ie es ee De ee i ee Oe ee ee ee Oe 
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FORSSUDF _WN FORSSUDF _WN = FORTRAN WRITE NAMELIST UDF Level 16- gep=12 4 99: $3: 55 AX-11 B ge Be -0-74 
14-Sep-1984 2:56 FORRTL.SRCJFORUDFWN.B32; 1 
MODULE FORSSUDF “WN COTITYE "FORSSUDF _WN = Steg WRITE NAM is Fag & Le yet" 
“IDENT = '1-005' ! File: FORUDFWN.B3 it: SBL1 86 


BEGIN 


Lee RRA e eee 
' 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


® 
® 
* 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
if ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, TRIS SOFTWARE OR “ANY. OTHER = 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. " 
® ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 

*® 

& 

® 

*® 

kt 

® 
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0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

® 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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' 


oo 
oo 
im 
Oo 


i FACILITY: FORTRAN Compiled Code Support 
i ABSTRACT: 


This module contains the User Data Formatter routines to perform 
FORTRAN NAMELIST WRITE statements. 


| 

1 

i] 

1 

! 

i] 

d 

ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 29-August-1980 
MODIFIED BY: 

; 1-001 - Original. SBL 29-August-1980 

; 
! 
i] 
' 
' 
t 


0045 ! 1-002 = Reflect group block spec change where count-of-variables is a word; 
0046 ! Sacene wore is reserved. SBL 5-Dec-1980 

0047 ! 1-003 - Add t dooce Bigs NAMELIST descriptor block. SBL hansh’  oapet 
ones ! 1-004 - REQUIRE ae instead of external reference to FORS symbols. 


i 1-005 = Add ability to dump et the var is le names for ‘'?"’ feature. 
Use prologue file. SBL 24-May-19 


WR OC DONA UE WN $0 OONOAUEWN (“OO ODNOUESWN (OVD ONAUSWN “OO ONOUS Wh 


SUPP Be BS BS BB EE BB EAA NA ANWNNAIII PIPPIN NONNNDD 2 SS SO OS 


FORSSUDF _WN 
1-00 


DOONAN 


AAOCOCMUMIVIN UWI 
Wwr—O 


OR 
ec 
05 


$ 
l 
4 
055 
b28 
05 
058 
5 
i 
i 
129 
130 
iH 
1 
iH 
135 
136 
137 
138 
139 
140 
i 
123 
144 
FF 
i 
148 
149 
150 
151 
152 
153 
154 
155 
156 
15 
15 
15 
1 


F 
D 
0 
Q 
Q 
Q 
0 
Q 
0 
Q 
0 
Q 
0 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
Q 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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8 
9 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
,} 
' 3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RSBTTL ‘Declarations’ 
PROLOGUE FILE: 


REQUIRE *RTLIN:FORPROLOG'; 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
FOR SSUDF_WNO: JSB DFO NOVALUE 
FOR$$DO_AML_OUTPUT: CALL CCB NOVALUE, 
FORSSUDF UNS JSB_UDF9 NOVALUE, 
CHECK_FIELD: CALL_CCB; 
! 
MACROS: 
NONE 
EQUATED SYMBOLS: 
. NONE 
FIELDS: 
NONE 
; OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 
FORS$REC_WSNO: JSB_RECO NOVALUE, 
FORS$SREC_WSN1: JSS~REC1 NOVALUE, 


FORSSUDF-WL1: CALL-CCB NOVALUE, 
FORSS$SIGRAL_ STO: NOVALUE; 


G 16 
16-Sep-1984 
14-§ 


-Sep-1984 


AX-11 8B 


:53:55 lis 
2 99: :52:56 FORRTL.SRC 


FORS definitions 


bag te WRITE NAMELIST 
o bulk of processing 

Prd WRITE NAMELIST 

Check field width 


Set up for a write 
Write a record 
Convert and move to buffer 


! Signal fatal error 


daub 


N-B3851 


Page 


SUDF _WN = FORTRAN WRITE NAMELIST UDF Level 


6 
6 Seep 90 :33!32 AX-11 Bliss-32 V4.0-74 Page 

SUDF_WNO = Start WRITE NAMELIST 4-Sep-1984 12:52:56 FORRTL.SRCJFORUDFWN.B32;1 ( 
S J 
ALU 


1 

1 
ZSBTTL "FORSSUDF _WNO = Start WRITE NAMELIST 
GLOBAL ROUTINE FORSSUDF_WNO: JSB_UDFO NOVALUE ! Start WRITE NAMELIST 


FORSSUDF_WN 
-00 


lee 


| FUNCTIONAL DESCRIPTION: 
' This routine starts a FORTRAN WRITE NAMELIST. It calls FORSSDO_NML_OUTPUT 
: to do the bulk of the work. There is no UDF1 routine in this module 
because WRITE NAMELIST statements have no I/O Lists. 

; CALLING SEQUENCE : 

JSB FORSSUDF _WNO 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

CCB ! Register pointer to RAB/LUB/ISB 

: IMPLICIT OUTPUTS: 

See FORSSDO_NML_OUTPUT 

COMPLETION STATUS: 

NONE 

SIDE EFFECTS: 

See FORSS$DO_NML_OUTPUT 

lo 


Se See Se Oe Se Ge Se ee SHS e Se Se Oe Se Se Se Se Se Se Se Se Ge BE Se See teas teas 


BEGIN 


= RUNINOPOPONONONIPINNY st tt es 


ee de ee et eae a ed ce ee el ec ee ec ca ce a ee cee ce ee a ce a ce ce ae ee ad a od ed 


0 EXTERNAL REGISTER 
$3) CCB = 11: REF SFORSCCB_DECL; 
208 FORSSREC_WSNO (); 
208 FORSSDO_NML_OUTPUT (0); ! Indicate that both names and values should print 
207 RETURN; 
208 
209 END; ! End of routine 


TITLE FORSSUDF_WN FORSSUDF WN - FORTRAN WRITE NAMELIS 
eve 
.IDENT \1-005\ 


.EXTRN FORSSREC_WSNO, FORSSREC_WSN1 
“EXTRN FORSSUDF-WL1, FORSSSIGNAL_STO 


fORGRIOT WH FORSSUBE = FORTRAN YRITE, AML UGT UDF Level JE-Seer196s 00:53:35 YMMeIt SLs 


-PSECT _FORSCODE,NOWRT, SHR, 


000000006 06 16 00000 FORSSUDF_wNO:: 
JSB FORSSREC_WSNO 


7E 04 00006 CLRL 
QO00v CF 01 FB 00008 CALLS) #1, FORSS$DO_NML_CUTPUT 
05 00000 RSB 


; Routine Size: 14 bytes, Routine Base: _FORSCODE + 0000 


PIC,2 


FORSSUDF _WN 
1-0 


05 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7? 
7 
7 
7 
7 
7 
7 
7 
7 
7 
8 
8 
8 
8 
8 
8 
8 


J 16 
SUDF WN = FORTRAN WRITE NAMELIST UDF Level 16-Sep-1984 00:33 
SDO_NML_OUTPUT = Do WRITE NAMELIST 14-Sep-1984 12:32 


1 XSBTTL "FORSSDO_NML_OUTPUT = Do WRITE NAMELIST' 
GLOBAL ROUTINE FORSSDO_NML_OUTPUT ( 


ONLY 
): CALL_CCB NOVALUE = 


255 
756 
' Set if only names are to be printed 


i FUNCTIONAL DESCRIPTION: 

This routine performs one WRITE NAMELIST statement. 
CALLING SEQUENCE: 

CALL FORSSDO_NML_OUTPUT (NAMES_ONLY.rl.v) 
FORMAL PARAMETERS: 


NAMES_ONLY th names and values are to Os pe reeed 


is can 


! IMPLICIT INPUTS: 


CCB : he ig pointer to RAB/LUB/ISB_ 
ISBSA_FMT_BEG ! Address of NAMELIST group descriptor 


! IMPLICIT OUTPUTS: 


! COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 


8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
; 
& 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 


Sete Ge Se Se Se Se Fe Ge Oe Oe Oe Se wee Se SHS SH Se Se Oe Se SESE SH Se SH Se Se ae Se Se Se Se ssease tessa 
a a tk ad i kk a ad ot a “a 8 a = ot = 8 = 2 = a a 
—o os “a as So = os ss a = 2s 2 os 2 SS SS 


! <BLF /PAGE> 


SUDF WN = FORTRAN WRITE NAMEL 


FORSSUDF _WN I 
1-00 $DO_AML_OUTPUT = Do WRITE NAME 


K 16 
6-Se 
4-Se 


ST UDF Level 
Ll 


1 -1984 00:53:55 AX-11 Bliss-32 V4.0-74 Pp 
ST 1o-90p- 1382 99:33:22 ¢j age 68 


p L 
p FORRTL.SRCJFORUDFWN.B32; 1 (5) 
' 


144 
Each NAMELIST descriptor block has the following form: 


TOS EF ES ESET boa ros ls tl doeressszi0 


Ooo 


9 0 6 6 6 0 6 06 00 86008588 S OSS S SSS OS SSSSSSS SOS SSS SSS SSS eSeese + 

0 H Address of ASCIC name of NAMELIST group : 
Bese enrocasraer ero mene sD ee DSB DEG eE STEM SSEDET ann sen nweawooesoerwae Sa 

1 H Reserved ' Count of NAMELIST variables : 
SEO ane aaa Sewer ewer ce mee semen een entree ee see esteem eae newt em ee anew eee + 

2 H Address of ASCIC name of variable 1 H 
3 ' Address of standard VAX descriptor for variable 1 : 
sets ed iinareran easmnicia RIES eirine eee tannic aeeariina Ran aah ee nee ip tinh taentnecentae ae 

4 { eee } 
¢eeeeeecooes wearer meee eB eee see esos e meer ees m ese eee eee cee owes se eee Se + 

5 H Address of ASCIC name of variable n } 
2 8 OOO 6 6 6666066065 SOS SOS SSS SEE SSSOSSSESEESSESESSEOESCSESSSSSESSes + 

6 | Address of standard VAX descriptor for variable n ' 


The NAMELIST group name and the variable names which are pointed to in 
the NAMELIST descriptor block are upper case only. The FORTRAN 
compiler or other calling prosree is responsible for case conversion 
of the name strings. In _NAMELIST input data, case is significant only 
in character Literals. The run-time Library is responsible for case 
conversion of NAMELIST input data. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

i 

' 

i 

‘ 

i 

' 

i 

' 

i 

‘ The allowable data ag in variable descriptors are BU (BYTE), WU, 
' LLU, WwW. L, F, OD, G, H, T, FC, DC, and GC. The allowable descriptor 
! classes are scalar and array. For the er class descriptor, the 
! descriptor reas COLUMN, COEFF, and BOUNDS must be set, indicating 
! column-major order and the presence of coefficient and bounds blocks. 
:__ The number of dimensions must not exceed 7. 


! <BLF /PAGE> 
BEGIN 


EXTERNAL REGISTER 
CCB = 11: REF SFORSCCB_DECL; 


MITPIPIPIDPINIPIPINPI NI NPN NI DUINI NIN NININNINININNININNININIDN 2 2 ss es ee 
ONO WN 


Ww 
PROPOPOMONoPONoPONOMONOPENONONONONODD 2 9 9 2 So 


Be Oe Be Oe Oe Be Be Se Oe Be Be Be Be Ge Be Be Se Ge Se Se Ge Se Se Se Se Ge FH Se Se Se Se Se Se FFB Se Se Se See Se Se ste set 


LOCAL 
GROUP: REF VECTOR C, LONG], ! NAMELIST group descriptor 

02 NVARS, ! Number of variables in group 

6S VALUE_ADDR: REF VECTOR C, BYTE); ! Address cf value 
23 8S ‘lel 
23 0 ! Write out group name 
23 03 !- 
$¢ 0301 
4 b 306 GROUP = .CCB CISBSA_FMT_BEG); ; 
24 030 VALUE ADDR = .GROUP (0); ! Address of group, nane counted string 
st Bape ae CHECK_FIELD (.VALUE_ADDR (0) + 2) ! Include leading "* $ 


16 
FORSSUDF _WN FORSSUDF_WN = FORTRAN WRITE NAMELIST UDF Level 1b-Se 1984 2$3:55 Ak-11 Bliss-32 V4.0-74 Pa 
1-005 FORSSDO_RML_OUTPUT = Do WRITE NAMELIST 14-Sep-19 4 99:33:83 FORRTL.SRCJFORUDFWN.B32;1 st (5) 
> 245 0 06 BEGIN 
; 246 030 FORSSSIGNAL_STO (FORSK_OUTSTAOVE); 
; see 0308 RETURN; 
; 248 0309 END; 
> 249 0310 CHSWCHAR_A (%C' ', CCB LUBSA_BUF _PTRI) ; ' Write leading space 
; 250 0311 CHSWCHAR A (2C'°$', CCB CLUBSA_BUF PTR]); ! Write leading 
; 251 O31¢ CCB CLUBSA_BUF_PTR] = CHSMOVE~(.VALUE_ADDR (OJ, VALUE_ADDR C1], .CCB CLUBSA_BUF_PTR); 
3 $26 03135 2 FORSSREC_WSN1 T); 
; @ 0314 
ae +, 0315 + 
; $2? Bai8 Scan through NAMELIST group and write all variables to the output stream. 
R gor $314 ‘ 
: os 0319 2 
; 259 0320 § DECR NVARS FROM (.(GROUP [1])<0,16,0> = 1) T0 0 DO 
; 260 0321 BEGIN 
; 261 0356 3 
; 262 0323 3 LOCAL 
; 263 0324 3 OUT_NAME_LEN; ! Output name Length 
> 264 0325 3 i : 
$ €62 0326 3 GROUP = GROUP (2); ! Skip to next variable 
; 266 0327 3 VALUE_ADDR = .GROUP (0); ! Address of variable name counted string 
s gor 0328 3 
; 268 0329 3 ‘+ 
: 269 0330 3 : Congute output name length so that the names are padded to lengths 
; 270 0331 3 ! of 7, 15, 23, etc. Add a space for before the ‘'="'. 
3° ery Oaeg 3 
3; 2fe 0333 3 
3; ar 0334 3 OUT_NAME_LEN = .VALUE_ADDR (0); 
> 274 0335 3 IF ROT .NAMES_ONLY 
S gfe 0336 3 
; 276 0337 3 OUT_NAME_LEN = .OUT_NAME_LEN + (8 = (.VALUE_ADDR [0] MOD 8)); 
; 278 0339 3 IF NOT CHECK_FIELD (.OUT_NAME_LEN + 2) ! Include leading space, trailing "* =" 
s ary 0340 3 THEN 
; 280 0341 4 BEGIN 
: 281 Os 4 FORSSSIGNAL_STO (FORSK_OUTSTAOVE); 
3; 282 0345 4 RETURN; 
: ges tne: 3 : 
; 284 0345 3 
3 ¢83 0346 3 ‘ae 3 
; 286 0347 3 ! Write out variable name 
: 287 0348 3 !- 
3 Seo 0349 ; 
$ 89 0350 CHSWCHAR_A (2%C° ', CCB CLUBSA_BUF _PTR]); 
> 290 0351 3 CCB CLUBSA_BUF_PTR] = CHSCOPY~(.VALUE_AODR [0], VALUE_ADDR (1), 
> 291 0353¢ iC’ *,~.OUT_NAME_LEN, .CCB CLUBSA~BUF _PTRJ); 
; $36 035 
: 0354 ¢ 
3: 294 0355 ! Only print values if NAMES_ONLY is false. 
: 295 9328 te 
: 296 0357 
3 97 O328 ; IF NOT .NAMES_ONLY 
; 298 59 THEN 
: 299 0360 4 BEGIN 
; 300 0361 4 CHSWCHAR_A (%C*=", CCB CLUBSA_BUF_PTR]); 
: 301 0362 4 


FORSSUDF _WN FORS 
1-005 FORS 
; 0363 
3 Q 8 64 
; 304 65 
; 3 p08 
; 036 

; » te 
; 308 0369 
; 309 0370 
s 510 0371 
: qi) te 
: \¢ 037 

: 1 Bare 
: 14 0375 
s S15 0376 
s 56 0377 
> Diz 0378 
; 318 0379 
: #319 0380 
: 320 0381 
s Sel 0382 
; See 0383 
s Ses 0384 
; 324 0385 
: 325 0386 
: 326 0387 
.. Ser 0388 
s See 0389 
: 329 0390 
. 3 0391 
s- Bon $338 
:: oe 039 

Saas 0394 
3; 336 0395 
x Bao 0396 
s 356 0397 
Sar 0398 
: 338 0399 
3; 339 0400 
; 340 0401 
3; «341 0402 
: 342 0403 
3; «(343 0404 
3: 6344 0405 
; #345 0608 
: 346 040 

; «347 0408 
; 348 0409 
; 349 0410 
; 50 0411 
: 51 Rete 
: 24 041 

: 5 0414 
3; 354 0415 
s 355 0416 
; 56 0417 
: 57 0418 
: 58 0419 


DRAARAEDPEDP AAD Ga DDD DD DD VSD DD SIO OD I BOD IIIT TUTTI 
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SUDF_WN = FORTRAN WRITE NAMELIST UDF Level 16-Sep-1984 AX-11 Bliss-32 V4.0-74 P 
$SDO_NML_OUTPUT = Do WRITE NAMELIST 14- =Sen~ 192 99: 33: 33 FORRTL.SRCJFORUDFWN.B32;1 — 
14 
} Output all values in variable 
BEGIN 
LOCAL 
ret Si REF BLOCK C, BYTE], ! Variable descriptor 
CUR_ADR, ' current variable address 
END_ADR ! End of variable 
ELEM_TYPE ! Element datatype passed to FORSSUDF_WL1 
CMPLR_FLAG; : Complex flag passed to FORSSUDF _WL1~ 
R_DESC = .GROUP ya ! Get descriptor 
“ADR = .VAR_DESC COSCSA_POINTER); 
IF [VAR_DESC CBOSC$B_CL 


Sc$ 
ed ASS] EQL DSCSK_ CLASS_A 
8 = .CUR_ADR + .VAR_DESC CDSCSL_ARSIZE] 


END_A -CUR_ADR + .VAR_DESC CDSC$W_LENGTHI; 
SELECTONE RAR “DESC COSC$B_DTYPe] OF 


COSCSK_DTYPE_FC): 
BEGIN 


ELEM. he = _DSCSK _DTYPE_F; 
CMPLK_F = 0; 


END; 
CDSCSK_DTYPE_DCI: 
BEGIN 


ELEM TYPE = _DSCSK_DTYPE_D; 
CMPLR_F 0; 


END; 
specs DTYPE_GCI: 


ELEM Tyee = DSC$K_DTYPE_G; 
uP PLR_F = 0; 


END 
conf Ries 
ELEM_TYPE = .VAR DESC CDSCSB_DTYPE]; 


* FORTRAN peaces us BU for B se change it here. 
their TYPE EQL DSC$K St yPe_8 


ELEM pig 2 = DSC$K _DTYPE_B; 
CMPLX_FLAG = 
END; 
TES; 
WHILE .END_ADR GTRA .CUR_ADR DO 
BEGIN 


CUR_POS, 
REPEAT_COUNT; 
: Build repeat count 


REPEAT_COUNT = 1; 


] 
1 
FORSSUDF _WN = FORTRAN WRITE gn is} DF Level -$ =309 1984 AX-11 Bliss-32 V4.0-74 Page 9) 
FORSSDO_RML_OUTPUT = Do WRITE NAMEL] Ist Sep 71382 99: 33: 33 FORRTL.SRCJFORUDFWN $3.1 . (5). 
0 CUR_POS = .CUR_ADR + .VAR +¥8 COSCSW_LENGTHI; 
1 WHILE. _CUR. POS"LSSA .END_ADR D 
§ IF NOT CHSEQL ave eee oe 
5 “VARIDESC COSCS$W_LENGTH, 
$ CUR_POS, 
6) 
5 Loor; 
0 CUR . CUR -POS + .VAR_DESC on LENGTHI; 
1 REPEA AT * count =” REPEAT COUNT + 
; 
5 i Is this variable of type CHARACTER? If so, do all the 


i processing here. Otherwise, let FORSSUDF_WL1 do most of 
i. the work. 


| 

| 

| 

| 

IF .ELEM_TYPE EQL DSCSK_DTYPE_T | 

THEN 
BEGIN 

3 “it's CHARACTER. 

| 

| 

| 


CAL 
REPEAT mitt tte ea ST ! Repeat Serine descriptor 


PAAR BRE REE EE 


0 
4 
é 
8 
9 REPEAT STR: VECTOR Ci2, B om ye string 
9 z FAO_DST: DSCSDESCRIPTOR; 1 FAO secaoe string descr 
¢ } Build repeat count string. 
4 
5 REPEAT_DSC EeSCou LENGTH] = 0; 
$ IF .REPEAT_COUNT GTR 1 
THEN 
8 BEGIN 
9 REPEAT_DSC [DSC$W_LENGTH] = 12; 
0 REPEAT“DSC [DSCSB_DTYPE] = DSC$k_DTYPE_T: 
1 REPEAT_OSC CLOSCSB_CLASS] = DSCS$K_CLASS_S; 
§ REPEAT DSC COSCSA-POINTER] = REPEAT STR: 
FAO_DSC COSCSA_POINTER) = veut BYTE (‘!s_e'); 
64 FAO_DSC COSCSW_LENGTH] = ZCHARCOUNT (°!SL*"); 
65 FAO-DSC EDSCSB-DTYPE] = DSCSK_DTYPE.1: 
FAO DSC COSCSB_CLASS] = DSCSK_CLASS_S; 
P 046 SFAG (FAO DSC : eee B string 
P 0468 REPEAT_OSC COSC$W_LENGTH],  ! Returned Length 
P REPEAT_DSC, ! Output string 
END »REPEAT_COUNT); 


'¢ 
See if there is enough room for the repeat count 
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| FORSSUDF _WN FORSSUDF_WN = FORTRAN WRITE NAMELIST UDF Level 1b-se -1984 00:53:55 AX-11 Bliss-32 V4.0-74 Page 10. 

A008” FORSSDO_RML_OUTPUT = Do WRITE NANELIST 1 ~3007 1382 99:33:80 FORRTL.SRC FORUDEUN. 63951 . (5) 

4g 77 7 IF NOT CHECK_FIELD (2 + .REPEAT_DSC [OSC$W_LENGTHJ) | ; 
; 41 A 7 THEN : 

3 ti8 7 Had : 

i; «41 0 FORSSREC_WSN1 (); H 
; : 1 IF ~? CRECK_FIELD (2 + .REPEAT_DSC CDSCS$W_LENGTH) : 
: 4 é § FORSSSIGNAL_STO (FORSK_OUTSTAOVE); ; 
> 426 5 7 ; 
3; 425 $ 7 '+ | : 
; 4 $ 7 ! Write out a leading space, the repeat count and an ; 
; $ 8 7 ! initial apostrophe. | ; 
: 428 9 7 !e , 
; 429 4 7 : 
; 4 0491 7 CHSWCHAR_A (%C° *, CCB CLUBSA_BUF _PTRI); : 
; 431 049¢ 7 CCB CLUBSA_BUF_PTR] = CHSMOVE~(.REPEAT_ DSC CDSCSw LENGTH, REPEAT_STR, | ; 
3 6 < 0493 7 .CCB CLOBS$A_BUF_PTR)); ; 
i 4 0494 7 CHSWCHAR_A (%C'''', CCB CLUBSA_BUF_PTRJ); | : 
; 435 0496 7 '+ ; ; 
3 4 0497 7 ! Write out each character of the string, substituting two : 
3 rt 4 bcos 7 ! apostrophes for each apostrophe found in the string. : 
; 4 499 7 le $ 
3; 439 0500 7 3 
; 640 0501 7 INCR I FROM 1 TO .VAR_DESC CDSC$W_LENGTH] DO H 
> 441 3206 : BEGIN : 
3 46 050 IF NOT CHECK_FIELD (1) | : 
: 44 0504 8 THEN : 
: 444 0505 9 BEGIN 3 
> 445 0306 9 FORSSREC_WSN1 (); ; 
; 446 0507 9 CHSWCHAR_A (ZC' ', CCB CLUBSA_BUF_PTRI); 3 
3; 447 0508 8 END; : 
3 448 0509 8 IF CHSRCHAR (.CUR_ADR) EQL %C'''* ; 
: 469 0510 THEN : 
; 450 0511 9 BEGIN : 
> 451 0312 g CHSWCHAR_A (ZC''**, CCB CLUBSA_BUF_PTRI); ; 
; 452 0513 9 IF NOT CRECK_FIELD (1) | : 
> 453 0514 9 THEN : 
: 456 0515 10 BEGIN : 
; 455 0516 10 FORSSREC_WSN1 QO; : 
; 4656 0517 10 CHSWCHAR_A (%C' ', CCB CLUBSA_BUF_PTRI); : 
: 457 0518 9 END; : 
; 458 0519 END; : 
: 659 9920 COPY_BYTE_A (CUR_ADR, CCB CLUBSA_BUF _PTR)); : 
; 460 501 END; | : 
: 461 b356 7 ; 
3 rr 5 7 '+ | . 
: 46 524 7 ! Write out the closing apostrophe. ‘ 
; 464 525 7 te : 
: 465 5 § 7 : 
3 466 527? 7 IF NOT CHECK_FIELD (1) : 
: 467 308 7 THEN | : 
; 468 5 BEGIN : 
> 669 530 FORSSREC_WSNI_(); : 
: 470 531 CHSWCHAR_A (ZC° °, CCB CLUBSA_BUF _PTR]); | ‘ 
3 (471 B2 ; END; ‘ 
; 472 533 7 CHSWCHAR_A (ZC°''', CCB CLUBSA_BUF_PTR); ; 


Pe 


4 
PLASMA AA MAE BDA AA MME BBB EEE PNA NWO NN NIAAA AAO AOA NINN NNN NOO NS So 


SESE 
ODONAU EWN 0 OONO US WN OOO NO UNE Ww 
109 0D 09 C8 SII SS NSN NNO PA AAA AAA AMI BBP BEEP EE PAA OD 


Pawel wal eal eal al eal al tab al ab ab ab ah ah ah ah ah eh ah sh ah ah ahah ak ak ak ak al al al al eal al alae ee www ee oe 


COOOOOOOCOOOCOOCOCO COCO OCOCO COSCO SGCOCOO COSCO OOCOOCOOOOOOOOOOOOCOOOOoOO Om 


PPV DLPVDVDPV PDD SPVUDPVLUPUSUDVSVSUSV TSU STITT 


RORINOROPOPONOUNUN 2 2 OO 


a - =, 


> 1 
RTRAN WRITE NAMELIST UDF Level 16-Sep-1984 00:53:55  VAX=11 BLiss-32 V4.0-74 p 
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CUR_ADR = .CUR_POS; 
END 


vO 


ELSE 


i Not CHARACTER 


| 
| 
BEGIN 
14 j 
: Call List directed routine to output value. | 


FORSSUDF_WL1 (.ELEM_TYPE, .VAR_DESC CDSC$W_LENGTHJ, .CUR_ADR, | 
“CMPLR_FLAG, .REPEAT COUNT); | 
CUR_ADR = .CURPOS; 


IF_.CUR_AD& LSSA .END_ADR 
THEN 

BEGIN : 

IF NOT CHECK_STELD (1) 

THEN 

BEGIN 

FORSSREC_WSN1 (); 

CHSUCHARLA (zc’ *, CCB CLUBSA_BUF_PTRI); 
CHSWCHAR_A (4C",", CCB CLUBSA_BUF_PTRI); 


END; 


'4 
Put out a separating comma if values to come 
END; 
| 


14 
If this is not the last variable, write out a comma 


IF .NVARS NEQ 0 | 
THEN 
BEGIN 
IF NOT CHECK_FIELD (1) 
THEN 
BEGIN | 
FORSSREC_WSN1 (); 
CHSUCHARA (zc' ', CCB CLUBSA_BUF_PTRI); 
CHSWCHAR_A (%c',", CCB CLUBSA_BUF_PTR}); | 
‘ 
END; | 
4 | 
| 
| 


Write this record. 


FORSSREC_WSN1 (); 
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= FORTRAN WRITE NAMELIST UDF Level 18Sep 4 755 AX-11 Bliss-32 V4.0-74 
OUTPUT = Do WRITE NAMELIST ‘ 14- at 1982 93: 33:88 PORRTL SRE FORUDFUN.83 31 ts 


END; 
‘4 
ALL variables written. Put out SEND block delimiter. 
IF NOT CHECK_FIELD (5) 
THEN 
BEGIN 
ri STO (FORSK_OUTSTAOVE); 


cB ELUBSA BUF PTR] = CHSMOVE (5, UPLIT BYTE (* SEND"), .CCB CLUBSA_BUF_PTRI); 
FORSSREE _WSN1 T); 


RETURN; 
END; ! End of routine 

2A 4C 53 21 QOOOE P.AAA: .ASCII \ISL*\ : 

44 GE 45 24 20 00012 P.AAB: .ASCII \ SEND\ : 
-EXTRN SYSS$FAO 

07FC 00000 ENTRY FORSSDO NML_OUTPUT, Save R2,R3,R4,R5,R6,R7,-; 

5E 34 ¢2 00002 SUBL2 W¢ $p ; 

FF7C CB DD 00005 PUSHL  -132(CCB) F 

SA 00 BE DO 00009 MOVL @GROUP, VALUE_ADDR : 

7E 6A 9A 0000D MOVZBL (VALUE ADDR), “=(SP) : 

6E 02 CO 90019 ADDL2 #2, (SP) ; 

0000v CF 1 FB 0001 CALLS #1, CHECK_FIELD ; 

5D 0 £9 00018 BLBC F 

56 BO AB 3 00018 MOVAB -80(CCB), R6 : 

00 86 20 90 0001F MOVB ‘ 2, a0(R6) ; 

66 D6 00023 INCL  (R6 : 

00 86 24 90 00025 MOVE #36, a@0(R6) : 

66 p6 00029 INCL (R65 : 

50 6A 9A 00028 mOVZBL ¢ (RALUE ADDR), RO ; 

01 20 28 0002E MOVC , 1CVALUE_ADDR), @0(R6) : 

66 3 DO 09 MOVL ; 

000000006 00 16 7 JSB Fokssne : 

18 AE 04 AC D2 00030 MCOM SreNCY "24¢SP) : 

6E 04 C1 00042 ADDL ee OUP, ’-(SP) : 

146 AE 9 3 0004 MOVZWL ait NVARS ; 

0231 31 O004A BRW : 

6E 08 CO 0040 1$: ADDL2 # GROUP : 

SA 00 BE 00 905 MOVL i8, gnc VALUE _ADDR ; 

32 6A 9A 00054 MOVZBL (VALUE_ADDR), “Out _NAME_LEN ; 

1 18 AE €9 37 C  24(SP)> 2$ F 

30 6A 9A B MOVZBL (VALUE CABDR) , RO ; 

1 7A 0005 pees ® 0, -(S : 

HL 6 78 006 EDIV. #8. (SP)+, RO, RO ; 

C3 0006 SUBL3 RO, OUT_NAME_LEN, RO ; 


coo oO 
WAG Nm 
oo = 
wr = 
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FORSSUDF _WN FORSSUDF_WN = FORTRAN WRITE NAMELIST UDF Level 16-Sep-1984 00:53:55 AX-11 Bliss-32 V4.0-74 Page 13 
1-005 FORSSDO_AML_OUTPUT = Do WRITE NAMELIST 13-808= 1382 90:33:84 FORRTL.SRCJFORUDFWN.B32; 1 > | 
| 52 08 AD 9E 0006 NOVAB  §(RO), OUT NAME _LEN ; | 
A2 9F 2$: PUSHAB 2(OUT NAME~LEN) + 0339) 
0000v cf FB 7 CALLS #1, CRECK_FIELD : 
| 3 9 78 3$: BLBS R09 4$ : 
| 56 | ae) as | BR : 0350 
00 86 28 96 000 Move. #85. SB KRG : 
| 50 ayes HOVIBL (ROS ADDR), RO + 0351 
52 20 01 AA $4 2C 00088 moves RO, 1(VALUE_ADDR), #32, OUT_NAME_LEN, - + 0352 
00 6 0091 a0(R6) : 
6 5 D9 0095 MOVL 3, (R6) : 
0 18 AE 96 BLBS gh isP), 5$ : 0358 
01DB 31 OO09A BRW 1$ : 
00 B86 3D 90 00090 5$ MOVB #61, @0(R6) + 0361 
66 D6 000A1 INCL (R65 : 
50 66 04 C1 000A3 ADDL3 #4, GROUP, RO + 0374 
5 60 DO 000A7 MOVL (Rb), VAR : 
59 04 A? DO OOOAA MOVL 4(VAR_DEST), CUR_ADR : 0375 
04 03 A? 91 OOOAE CMPB = 3(VARDESC). #4 : 0376 
08 12 0008 BNEQ 6$ : 
10 AE 0c 8749 9E 000B4 MOVAB 12(VAR_DESC)CCUR_ADRJ, END_ADR + 0378 
08 11 OO0BA BRB 7$ : 
50 67 3C OOOBC 6S: MOVZWL (VAR_DESC), RO + 0380 
10 AE 59 50 C1 OO0BF ADDL3 RO, CUR_ADR, END_ADR : 
50 02 AZ 9A 000C4 7S: MOVZBL 2(VAR_DESC). RO > 0381 
0c 50 91 000C8 CMPB sO, -#T2 + 0383 
05 12 000CB BNEQ 8$ : 
58 OA DO 000CD MOVL #10, ELEM_TYPE : 0385 
12 11 00000 BRB 10$ > 0386 
yy 50 91 000D2 8$ CMPB ss RO, -#13 : 0388 
05 12 00005 BNEQ 9$ 3 
58 0B 00 00007 MOVL #11, ELEM_TYPE + 0390 
08 11 OOODA BRB 10$ : 0391 
1D 50 91 000DC 9$ CMPB ss RO, #29 : 0393 
08 if OO0DF BNEQ 11% ; 
58 1B 00 000E1 MOVL #27, ELEM_TYPE + 0395 
OC AE 04 OO0E4 108 CLRL CMPLX_FLAG : 0396 
oF 11 000E7 BRB 13$ : 0381 
58 0 DO O00E9 118 MOVL RO, ELEM_TYPE : 0400 
02 38 D1 OO0EC CMPL ELEM_TYPE, #2 > 0403 
03 12 OO0EF BNEQ 12$ : 
58 06 00 O00F1 MOVL as, ELEM_TYPE : 0405 
oc A 02 D6 bO0F4 138 MOVL #2, CMPLR FLAG + 0406 
5 10 AE D FB 13$ CMPL _ END_ADR, CUR_ADR : 0410 
: 1A OO0FC BGTRU 14$ ; 
0154 31 OOOFE BRW 29$ ; 
54 01 dO 101 14$:  MOVL #1, REPEAT_COUNT > 0419 
04 AE 67 3C 001 MOVZWL (VAR DESC): 4(SP) : 0420 
8 AE 04 BE49 9€ 00108 MOVAB a@4(SP)CCUR’ADR], CUR_POS ; 
10 AE 08 AE O01 4 i5$ CMPL  CUR_POS, END_ADR + 0421 
11 3 11 BGEQU 16$ ; 
08 BE 69 04 AE é 11 CMPC3 4(SP), (CUR_ADR), @CUR_POS + 0423 
0 : 118 BNEQ 16$ ; 
08 AE 04 AE CO 0011 ADDL2 4(SP), CUR POS > 0430 
54 D6 1g INCL REPEAT _COURT > 0431 
—8 11 001 BRB 15$ > 0421 


“Re lon ei aD RESETS i PS aR Oe a AR A CRT Nae 
| LORRRUOF wm FORSSUDF WN = FORTRAN WRITE NAMEL | UDF Level é 


1 
1 16-Sep-1984 00:53:55 AX-11 Bliss-32 V4.0-74 Page 14 
| -005 FORSSDO_AML_OUTPUT = Do WRITE NAMELIST 1 ~30P 71382 90:33:82 FORRTL.SRCJFORUDFWN.B30; 1 wet 

| OE 58 0100126 16$: CMPL M_TYPE, #14 : 0440 : 

| 88 33 00156 Brot | 98 ; : 

00E9 31 00128 BRW 25$ : ; 

30 AE B4 OO12E 178: CLRW  REPEAT_DSC + 0455 ; 

01 i D1 1 ] cHPL REPEAT_COUNT, #1 + 0456 ; 

30 AE 010E000C 8F 00 00136 MOVL #$#17694732, REPEAT_DSC + 0459 ; 

a & 24 AE 9E 001 5 MOVAB REPEAT_STR, REPEAT_DSC+4 : 046¢ ; 

20 AE FEBO CF 9 014 MOVAB P.AAA,~FAO.DSC+ + 046 ; 

1C AE 010E0004 BF 00 00149 MOVL #17694724,~FAO_DSC + 0464 ; 

4 DD 00151 PUSHL REPEAT_COUNT + 0470 ; 

34 AE OF 0193 PUSHAB REPEAT-DSC : ; 

8 AE 9F 00156 PUSHAB REPEAT DSC : ; 

28 3=6AE OOF 00139 PUSHAB FAO_DST : ; 

000000006 00 04 FB O15¢ CALLS #4, ~SYSS$FAO : ; 

2g 30 AE 3¢ 0016 18$:  MOVZWL REPEAT_DSC, R2 > 0477 : 

& 9 CO 00167 ADDL2. #2, R2 : ; 

DD O016A PUSHL R : ; 

0000v CF 01 FB 0016C CALLS #1, CHECK_FIELD : ; 

1B 50 €8 00171 BLES _—sRO, : ; 

000000006 00 16 00174 JSB FORSSREC_WSN1 + 0480 ; 

2 DD 00174 PUSHL + 0481 : 

000GV CF 01 FB O0017C CALLS #1, CHECK FIELD : ; 

0B 50 €8 00181 LBS RO. 19$ ; : 

7E 42 BF 9A 00184 MOVZBL #66, =(SP) + 0483 : 

000000006 00 01 FB 00188 CALLS #1, FORSSSIGNAL_STO : ; 

rt BO AB 3 0018F 19$:  MOVAB 80 ¢ccB) R6 + 0491 ; 

00 86 20 90 00193 MOVB #32, a0(R6) : ; 

66 D6 00197 INCL. (R65 : ; 

00 B6 24 AE 30 ag 28 00199 MOVC3 REPEAT _DSC, REPEAT_STR, @0(R6) : 0493 : 

66 3 DO O01A0 MOVL R x ; 

00 86 7 90 001A3 MOVB #39, a0(R6) + 0494 ; 

66 Dé 901A7 INCL (R65 : : 

52 Da OO1A9 TT ee : 0501 ; 

45 71 CO1AB BRB 23$ : : 

01 0 COIAD 20$:  PUSHL #1 : 0503 : 

0000v CF oN FB YOTAF CALLS #1, CHECK_FIELD ; : 

OD 0 E8 00184 BLBS : ; 

000000006 90 16 00187 JSB FORSSREC_WSN1 > 0506 3 

BO 6B 0 90 001BD MOVB #32, @-80(CCB) : 0507 ; 

BO AB 06 001C1 INCL =B0(CCB) : 3 

27 69 91 001C4 21$:  CMPB  (CUR_ADR), #39 + 0509 ; 

1 ff 001¢7 BNEQ : ; 

BO 6B 27 9 6 1€9 MOVB #39, a-80((CB) : 0512 : 

BO AB D6 001CD INCL  =80(CCB) : : 

01 DD 6 1D PUSHL #1 : 0513 ; 

0000v CF oN FB 1D CALLS #1, CHECK_FIELD ; : 

OD 0 : 1D BLBS RO, 22$ : : 

000000006 00 ‘ 1DA JSB F RSSREC WSN1 > 0516 : 

BO 8B 90 001E0 MOVB «#32, a@-80(CCB) : 0517 : 

80 AB D6 OO1E4 INCL =B0(CCB) ; 3 

BO AB 06 OO1E7 228 INCL -80(CCB) > 0520 : 

50 B0 AB p 1EA MOVL =80(CCB), RO : ; 

8 1E MOVE  (CUR_ADRS+, -1(RO) ; : 

B6 5 04 AE F3 OO1FS 23% AOBLEQ 4(SPY, I, 208 : 9591 ; 

0 DD OO1F PUSHL #1 : 0527 : 

0000v CF 1 FB 001F9 CALLS #1, CHECK_FIELD : : 
| 
| | 
| | 
| | 
l 


ee eS ET er ee ee ee 4 ) 


| H | 


; 549 0610 1 '<BLF/PAGE> 


1 
| FORSSUDF _WN FORSSUDF_WN = FORTRAN WRITE NAMELIST UDF Level 16-Sep-1984 00:53:55 AX-11 Bliss-32 V4.0-74 P | 
1-00 FORSSDO_AML_OUTPUT - Do WRITE NAMELIST aes VAS a ee hee tg ae ee aoe 3 
) 8 OO1FE BLBS RO, 24$ F 
000000006 09 is 1 JSB F asthe WSN1 + 0530 
BO 8B 9 7 MOVB #32, a-80(CCB) + 0531 
B0 AB B6 B INCL BOC ; 
BO 6B 2 24$: MOVB #39, a-80(CCB) ; 0533) 
B0 AB D6 0021 INCL  =B0(CCB) : | 
13° «11 1 BRB 26$ + 0534 
54 DD 17 258: PUSHL REPEAT_COUNT + 0546) 
10 af DD 19 PUSHL CMPLX_FLAG : 
59 DD 0021C¢ PUSHL CUR_ADR : 0545 
a a | 
000000006 05 FB i 3 CALLS is FORSSUDF WL! : 
59 08 AE DO 0022A 268:  MOVL CUR_POS, CURTAD + 0547 
10 59 D1 00 : CMPL § CURTADR, END-ADR > 0554 
1— 1€ 00 BGEQU 28$ ; 
07 DD 00234 PUSHL #1 : 0557 
0000v CF 01 FB 00236 CALLS #1, CHECK_FIELD ; 
OD 50 £8 00238 BLBS) soa ; 
000000006 00 16 0023 JSB FORSSREC_WSN1 + 0560 
BO 8B 20 90 00244 MOVB #32, a-80(CCB) > 0561 
BO AB 06 00248 INCL <8 : 
BO BB 2C 90 00248 27$: MOVB #44, a-80(CCB) : 0563 
B0 AB 06 0024F INCL 79 (ccB) ; 
FEA3 31 00 32 28s: BRW 13$ + 0410 
14 D3 00255 29$: TSTL NVARS : 0572 
1E 13 00258 BEQL 31$ ; 
01 DD 00254 PUSHL #1 : 0575 
0000v CF gi FB 0025C¢ CALLS #1, CHECK_FIELD : 
OD 0 €8 00261 BLBS 0, : 
000000006 00 16 00 64 JSB FORSSREC_WSN1 : 0578 
B80 BB 20 90 0026A MOVB #32, a-80(CCB) : 0579 
BO AB 06 0026E INCL = ; 
BO 6B 2C 90 00271 30$: MOVB #44, a-80(CCB) > 0581 
BO AB D6 00275 INCL  -80(CCB) ; 
000000006 00 16 00278 318: JSB FORSSREC WSN1 : 0590 
02 14 AE F4 OO27E 32$: SOBGEQ NVARS, 33$ : 0320 
03 11 00282 BRB 34$ F 
FDC6 «31 00 Bs 333: BRW 1$ F 
05 DD 00 7 34$:  PUSHL #5 : 0598 
0000v CF 01 FB 00289 CALLS #1, CHECK. FIELD ; 
0c 0 34 O28 BLBS RO, 36$ ; 
7E 42 BF 9A 00291 358 MOVZBL #66, -(SP) + 0601 
000000006 00 01 FB 0 99 CALLS #1, FORSSSIGNAL_STO Fins 
BO 6B FDS9.—s«CF 05 Ss 90 90 36$ MOVC3 #5, P.AAB, @-80(CCB) > 0604 
BO AB DO 002A4 MOVL R3. -80(CéB) : 
000000006 00 16 002A8 JSB FORSSREC_WSN1 > 0605 
04 OO2AE RET : 0609 
; Routine Size: 687 bytes, Routine Base: _FORSCODE + 0017 


; Routine Size: 


: 3 


1 bytes, Routine Base: _FORSCODE + 02C6 


0653 1 !<BLF/PAGE> 


| ; 
FORSSUDF _WN FORSSUDF _WN = FORTRAN WRITE NAMELIST UDF Level 1b-se -1984 00:53:55 AX-11 Bliss-32 V4.0-74 Page 16 
1-005 FORSSUDF"WN9 = End WRITE NAMELIST 12286871383 99:3 756 FORRTL. RCIFORUDFUN.B3 31 2 (6) 
; 22) 0611 1 XSBITL ‘FORSSUDF_WN9 = End WRITE NAMELIST' 
; § be1§ ! GLOBAL ROUTINE FORSSUDF_WN9: JSB_UDF9 NOVALUE ! End WRITE NAMELIST 
: 4 614 1 
; 5 615 1 {4+ 
; 228 618 : } FUNCTIONAL DESCRIPTION: 
; $58 pels 13 End a namelist-directed WRITE statement. This procedure, although 
; 559 0619 1! a no-op, is necessary because FORSIO_END dispatches to a UDF9 routine 
; 290 89 Y : based on the statement type. 
; 206 8 ¢ 1 ! CALLING SEQUENCE: 
; 56 6 1 $ 
> 564 0624 1! JSB FORSSUDF _WN9 
; 565 0625 1! 
; 566 0626 1 ! FORMAL PARAMETERS: 
: 567 0627 1! 
; 568 0628 1! NONE 
; 569 0629 1! 
; 570 0630 1 ! IMPLICIT INPUTS: 
; 33 $e33 : CCB ! Regist i to RAB/LUB/ISB 
3 ! ! Register pointer to 
: 308 Oe83 1 i . : 
; 574 0634 1 ! IMPLICIT OUTPUTS: 
3. 379 0635 1! 
3; 37 Bose ;! NONE 
; Sry 0637 1! 
; S78 0638 1 ! COMPLETION STATUS: (or ROUTINE VALUE:) 
s Sry 0639 1! 
; 580 0640 1! NONE 
; «581 0641 1! 
; 286 0642 1 ! SIDE EFFECTS: 
a 0643 1! 
; 4584 0644 1! NONE 
; 585 0645 1! 
: 586 0646 1 !-- 
3 6 Ser 0647 1 
; 588 0648 BEGIN 
; io 0649 
; 590 0650 RETURN; 
; 0651 
; 592 0652 1 END; ! End of routine FORSSUDF_WN9 
05 00000 FORSSUDF _WN9:: 
RSB ; 0652 


= 
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a 4 
FORSSUDF_WN = FORTRAN WRITE NAMELIST UDF Level 16-Sep-1984 :53:55 AX-11 Bliss-32 V4.0-74 
CHECK_FIELD = Check field tanetatnn for width 18-808 -13b 99:33:8 LPORRTL SRC IF ORUDFUN.B3 31 
654 1 XZSBTTL ‘CHECK_FIELD = Check field remaining for width’ 
655 1 ROUTINE CHECK_FIELD ( 
6 8 1 W 
6 1 ): CALL_CCB 
bees 1 = 
659 1 
0660 1 !++ 
bees : } FUNCTIONAL DESCRIPTION: 
bees ii Determine if there are sufficient characters remaining in the current 
bere : } record for a field of a specified width. 
O66 CALLING SEQUENCE: 
066 status = CHECK_FIELD (width.rl.v) 
0870 FORMAL PARAMETERS: 
067 width = The width of the field you wish to use 
0674 1! IMPLICIT INPUTS: 
0675 1! 
pore : ccB ! Register pointer to RAB/LUB/ISB 
0678 1 | IMPLICIT OUTPUTS: 
0679 1! 
0680 1! NONE 
0681 1! 
et) : COMPLETION STATUS: (or ROUTINE VALUE:) 
0684 1} 1 if the field will fit, 0 otherwise 
0685 1! 
068 1 ! SIDE EFFECTS: 
0687 1! 
0688 1 ! NONE 
0689 1! 
0690 1 !-- 
0691 1 
+83 BEGIN 
0694 EXTERNAL REGISTER 
Bene CCB = 11: REF SFORSCCB_DECL; 
ea RETURN ((.CCB CLUBSA_BUF_PTR] + .WIDTH) LEQA .CCB CLUBSA_BUF_END)); 
0699 1 END; ! End of routine CHECK_FIELD 


0000 00000 CHECK_FIELD: 
- WOR 


Save nothin 
51 BO AB 04 ac Ci it ADDL a -B80(CCB), R1 
29 D4 000 CLRL R 
B4 AB 1 O01 OOA CMPL Ri, -76(CCB) 
02 1A QOO0E BGTRU 1$ 


K 1 
1005“ —ERECKPLELD = Check tied remaining for width. 1k-Sep=1oR4 
I 
R 


> Bf 88812 15: 


; Routine Size: 19 bytes, Routine Base: _FORSCODE + 02C7 


93:33:88 EPSaT SRF OhubtuN = 639; 1 
NCL RO 


; 641 0700 1 !<BLF/PAGE> 


1 
Dive a cadla gp iced aa _WN FORSSUDF_WN = FORTRAN WRITE ay 4 th UDF Levee 16-5 Sep =1384 90: 33: 2? AX-11 Bliss-32 V4.0- age 8 Page 19 
1-005 CHECK_FIELD = Check field remaining for w Hoth 14-Sep FORRTL.SRC FORUDE N.B32;1 (8) 
3; 643 7 1 1 END ! End of module FORSSUDF_WN 
644 7 ¢ 1 
3; 4645 07 0 ELUDOM 
; PSECT SUMMARY 
: Neme Bytes Attributes 
: _FORSCODE 730 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
5 Library Statistics 
: ereccece Symbols -------=- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: SYSLIBISTARLET 32:1 9776 0 581 00:01.1 
> ~$255$DUA28: RTL.OBJ ert te rest 711 186 26 52 00:00.6 
; ~$588SDUA8: FORRTL: OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
3 COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:FORUDFWN/OBJ=OBJ$:FORUDFWN MSRC$:F ORUDFWN/UPDATE=(ENH$: Ff ORUDF WN) 
3; Size: 721 code + 9 data bytes 
; Run Time: 00: 3: -6 
3 Elapsed tags 00: 2 2 
3; Lines/CPU Min: $666 
3; Lexemes/CPU-Min: 13809 
: Y Used: 274 pages 
; Compilation Complete 
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